home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Utilities / Programming / MT2Trivial 2.1.3 / MT2Trivial 2.1.3 ƒ / MT2Trivial Templates ƒ / TemplateStrs.c.Trivial < prev    next >
Encoding:
Text File  |  1996-08-09  |  713 b   |  42 lines  |  [TEXT/MPS ]
  1. 01'//%% MT2Trivial Generation: Program heading'
  2. 02'#define '
  3. 03' void  '
  4. 04' (void);'
  5. 05' void Do'
  6. 06' ()'
  7. 07' { '
  8. 08'  } /* Do'
  9. 09'}'
  10. 10' */'
  11. 11' : --disable */'
  12. 12' /* '
  13. 13'     /*'
  14. 14'; /*%%?*/'
  15. 15';'
  16. 16'  '
  17. 17'            '
  18. 18'   short             itemHit;'
  19. 19'   DialogPtr DialogW;'
  20. 20'   Boolean        done = false;'
  21. 21'   DialogW = GetNewDialog ('
  22. 22',0L, (WindowPtr)-1L);'
  23. 23'   while ( ! done )'
  24. 24'        ModalDialog (0L, &itemHit); /*%% >> Change it for modless dialog <<*/'
  25. 25'        itemHit = Alert ('
  26. 26', 0L);'
  27. 27'        switch (itemHit)'
  28. 28'        break;'
  29. 29'        switch (mitem)'
  30. 30'        case '
  31. 31':'
  32. 32'Do'
  33. 33'     }'
  34. 34'   done = (itemHit == '
  35. 35')'
  36. 36'   DisposeDialog (DialogW);'
  37. 37' ()'
  38. 38'  ExitToShell();'
  39. 39' DITL'
  40. 40'DoNewWindow'
  41. 41'()'
  42.